(math-check-known-square-matrixp): Change order in which value is checked.

diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index 810ed7bdd9f849880521f03ab65da1f118903447..feb3c9d25a84165c87bb7ffd56e000876880d21a 100644 (file)
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -383,8 +383,6 @@
            (cond
             ((memq 'sqmatrix (nth 1 decl))
              t)
-            ((memq 'matrix (nth 1 decl))
-             nil)
             ((and (eq (car a) 'var)
                   (boundp (nth 2 a))
                   (setq val (symbol-value (nth 2 a))))
@@ -394,6 +392,8 @@
                    (eq calc-matrix-mode 'sqmatrix))
                   (eq (car-safe a) 'var))
              t)
+            ((memq 'matrix (nth 1 decl))
+             nil)
             (t
              nil))))))